home *** CD-ROM | disk | FTP | other *** search
- {{{ Notes about this keybinding
- ; These bindings are written for the amiga version of origami (1.6.75)
- ;
- ; They use the emacs.keys bindings and define some addition keybinds for
- ; usage of menus, mouse, cursor keys and numberpad
- ; Some functions defined in emacs.keys are not implemented like spell-it or
- ; translate-word.
- ;
- ; Thomas Hadig
- ;
- ; Version 1.2b
- }}}
-
- @use (MOUSE)
- @lib amiga.alias
-
- @lib emacs.keys
-
- {{{ Mouse-Handling
- @lib go-mouse
- (mouse-buttons
- emori-go-mouse-position)
- }}}
-
- {{{ aliases
- {{{ edit
- ;(mode edit
- ; (keybind backward-character ($left))
- ; (keybind forward-character ($right))
- ; (keybind previous-line ($up))
- ; (keybind next-line ($down))
- ; (keybind previous-page ($prev_page))
- ; (keybind next-page ($next_page))
- ; (keybind up-buffer (M-C-X $up))
- ; (keybind down-buffer (M-C-X $down))
- ; (keybind left-buffer (M-C-X $left))
- ; (keybind right-buffer (M-C-X $right))
- ;)
- }}}
- {{{ para
- ;(mode para
- ; (keybind backward-character ($left))
- ; (keybind forward-character ($right))
- ; (keybind previous-line ($up))
- ; (keybind next-line ($down))
- ;)
- }}}
- }}}
-
- {{{ NumKeys
- {{{ edit
- (mode edit
- (keybind backward-character ($csrl))
- (keybind forward-character ($csrr))
- (keybind previous-line ($csru))
- (keybind next-line ($csrd))
- ; (keybind beginning-of-line ($home))
- ; (keybind end-of-line ($end))
- (keybind forward-word ($ctcsrr))
- (keybind backward-word ($ctcsrl))
- (keybind beginning-of-fold ($ctprev_page))
- (keybind end-of-fold ($ctnext_page))
-
- (keybind redraw-display ($csi "F "A ".))
- (keybind add-mode-overwrite ($del))
- (keybind delete-mode-overwrite ($ins))
-
- (keybind paired-brackets ($csi "F "A "Z))
- (keybind "] ($csi "F "A "[))
- (keybind paired-curly-brackets ($csi "F "B "Z))
- (keybind "} ($csi "F "B "[))
- (keybind "/ ($csi "F "A "\))
- (keybind "* ($csi "F "A "]))
- (keybind "- ($csi "F "A "J))
- (keybind "+ ($csi "F "A "^))
- (keybind newline-and-indent ($csi "F "A "C))
- )
- }}}
- {{{ para
- (mode para
- (keybind backward-character ($csrl))
- (keybind forward-character ($csrr))
- (keybind previous-line ($csru))
- (keybind next-line ($csrd))
-
- (keybind "[ ($csi "F "A "Z))
- (keybind "] ($csi "F "A "[))
- (keybind "{ ($csi "F "B "Z))
- (keybind "} ($csi "F "B "[))
- (keybind "/ ($csi "F "A "\))
- (keybind "* ($csi "F "A "]))
- (keybind "- ($csi "F "A "J))
- (keybind "+ ($csi "F "A "^))
- (keybind newline-and-indent ($csi "F "A "C))
- )
- }}}
- }}}
- {{{ Menus
- ; use this only in conjunction with .origamimenu file in HOME directory
-
- {{{ view-file
- (deffun view-file
- (
- read-file
- "/
- newline-and-indent
- add-mode-view
- ))
- }}}
- {{{ exit-file
- (deffun edit-exit-file
- (
- save-file
- emori-exit-origami
- ))
- }}}
- {{{ open-line
- (deffun open-line
- (
- end-of-line
- newline-and-indent
- ))
- }}}
- {{{ edit-only
- (deffun edit-only
- (
- message ( "[function " only " in " edit " modus]" )
- ))
- }}}
-
- {{{ mode edit
- ( mode edit
- {{{ project menu
- (keybind edit-exit-file ($menu "0 "5))
- (keybind read-file ($menu "0 "0))
- (keybind view-file ($menu "0 "1))
- (keybind insert-file ($menu "0 "2))
- (keybind save-file ($menu "0 "3))
- (keybind write-file ($menu "0 "4))
- (keybind shell ($menu "0 "6))
- (keybind shell-command ($menu "0 "7))
- (keybind emori-exit-origami ($menu "0 "8))
- }}}
-
- {{{ edit menu
- (keybind transpose-characters ($menu "1 "0))
- (keybind delete-line ($menu "1 "1))
- (keybind undo-delete-line ($menu "1 "2))
- (keybind delete-to-end-of-line ($menu "1 "3))
- (keybind copy-to-kill-buffer ($menu "1 "4))
- (keybind insert-folded-kill-buffer ($menu "1 "5))
- }}}
-
- {{{ fold menu
- (keybind open-fold ($menu "2 "0))
- (keybind close-fold ($menu "2 "1))
- (keybind enter-fold ($menu "2 "2))
- (keybind exit-fold ($menu "2 "3))
- (keybind unfold-fold ($menu "2 "4))
- (keybind create-fold ($menu "2 "5))
- (keybind toggle-file-fold ($menu "2 "6))
- (keybind toggle-attach-file-to-fold ($menu "2 "7))
- (keybind describe-fold ($menu "2 "8))
- }}}
-
- {{{ move menu
- (keybind beginning-of-fold ($menu "3 "0))
- (keybind end-of-fold ($menu "3 "1))
- (keybind goto-line ($menu "3 "2))
- (keybind next-page ($menu "3 "3))
- (keybind previous-page ($menu "3 "4))
- (keybind forward-word ($menu "3 "5))
- (keybind backward-word ($menu "3 "6))
- }}}
-
- {{{ line menu
- (keybind open-line ($menu "4 "0))
- (keybind delete-line ($menu "4 "1))
- (keybind delete-to-end-of-line ($menu "4 "2))
- (keybind beginning-of-line ($menu "4 "3))
- (keybind end-of-line ($menu "4 "4))
- (keybind next-line ($menu "4 "5))
- (keybind previous-line ($menu "4 "6))
- }}}
-
- {{{ word menu
- (keybind case-word-upper ($menu "5 "0))
- (keybind case-word-lower ($menu "5 "1))
- (keybind case-word-capitalize ($menu "5 "2))
- }}}
-
- {{{ search menu
- (keybind search-forward ($menu "6 "0))
- (keybind search-reverse ($menu "6 "1))
- (keybind replace-string ($menu "6 "2))
- (keybind query-replace-string ($menu "6 "3))
- (keybind incremental-search-forward ($menu "6 "4))
- (keybind incremental-search-reverse ($menu "6 "5))
- }}}
-
- {{{ mode menu
- (keybind add-mode-view ($menu "7 "0))
- (keybind delete-mode-view ($menu "7 "1))
- (keybind add-mode-overwrite ($menu "7 "2))
- (keybind delete-mode-overwrite ($menu "7 "3))
- }}}
-
- {{{ extras menu
- (keybind define-macro ($menu "8 "0))
- (keybind define-macro ($menu "8 "1))
- (keybind execute-macro ($menu "8 "2))
- (keybind set-language ($menu "8 "3))
- (keybind describe-bindings ($menu "8 "4))
- (keybind help ($menu "8 "5))
- }}}
- )
- }}}
-
- {{{ mode para
- ( mode para
- {{{ project menu
- (keybind edit-only ($menu "0 "5))
- (keybind read-file ($menu "0 "0))
- (keybind view-file ($menu "0 "1))
- (keybind insert-file ($menu "0 "2))
- (keybind save-file ($menu "0 "3))
- (keybind write-file ($menu "0 "4))
- (keybind shell ($menu "0 "6))
- (keybind shell-command ($menu "0 "7))
- (keybind edit-only ($menu "0 "8))
- }}}
-
- {{{ edit menu
- (keybind edit-only ($menu "1 "0))
- (keybind delete-line ($menu "1 "1))
- (keybind undo-delete-line ($menu "1 "2))
- (keybind delete-to-end-of-line ($menu "1 "3))
- (keybind copy-to-kill-buffer ($menu "1 "4))
- (keybind insert-folded-kill-buffer ($menu "1 "5))
- }}}
-
- {{{ fold menu
- (keybind open-fold ($menu "2 "0))
- (keybind close-fold ($menu "2 "1))
- (keybind enter-fold ($menu "2 "2))
- (keybind exit-fold ($menu "2 "3))
- (keybind unfold-fold ($menu "2 "4))
- (keybind create-fold ($menu "2 "5))
- (keybind toggle-file-fold ($menu "2 "6))
- (keybind toggle-attach-file-to-fold ($menu "2 "7))
- (keybind describe-fold ($menu "2 "8))
- }}}
-
- {{{ move menu
- (keybind beginning-of-fold ($menu "3 "0))
- (keybind end-of-fold ($menu "3 "1))
- (keybind goto-line ($menu "3 "2))
- (keybind next-page ($menu "3 "3))
- (keybind previous-page ($menu "3 "4))
- (keybind forward-word ($menu "3 "5))
- (keybind backward-word ($menu "3 "6))
- }}}
-
- {{{ line menu
- (keybind open-line ($menu "4 "0))
- (keybind delete-line ($menu "4 "1))
- (keybind delete-to-end-of-line ($menu "4 "2))
- (keybind beginning-of-line ($menu "4 "3))
- (keybind end-of-line ($menu "4 "4))
- (keybind next-line ($menu "4 "5))
- (keybind previous-line ($menu "4 "6))
- }}}
-
- {{{ word menu
- (keybind case-word-upper ($menu "5 "0))
- (keybind case-word-lower ($menu "5 "1))
- (keybind case-word-capitalize ($menu "5 "2))
- }}}
-
- {{{ search menu
- (keybind search-forward ($menu "6 "0))
- (keybind search-reverse ($menu "6 "1))
- (keybind replace-string ($menu "6 "2))
- (keybind query-replace-string ($menu "6 "3))
- (keybind incremental-search-forward ($menu "6 "4))
- (keybind incremental-search-reverse ($menu "6 "5))
- }}}
-
- {{{ mode menu
- (keybind add-mode-view ($menu "7 "0))
- (keybind delete-mode-view ($menu "7 "1))
- (keybind add-mode-overwrite ($menu "7 "2))
- (keybind delete-mode-overwrite ($menu "7 "3))
- }}}
-
- {{{ extras menu
- (keybind define-macro ($menu "8 "0))
- (keybind define-macro ($menu "8 "1))
- (keybind execute-macro ($menu "8 "2))
- (keybind set-language ($menu "8 "3))
- (keybind describe-bindings ($menu "8 "4))
- (keybind help ($menu "8 "5))
- }}}
- )
- }}}
-
- {{{ os-extensions
- {{{ Project menu
- (os-extension ("MENU " Project,Read ))
- (os-extension ("MENU " Project,View ))
- (os-extension ("MENU " Project,Insert ))
- (os-extension ("MENU " Project,Save ))
- (os-extension ("MENU " Project,Write ))
- (os-extension ("MENU " Project,Save " & " Exit ))
- (os-extension ("MENU " Project,New " Shell ))
- (os-extension ("MENU " Project,Command ))
- (os-extension ("MENU " Project,Quit ))
- }}}
- {{{ Edit menu
- (os-extension ("MENU " Edit,Transpose ))
- (os-extension ("MENU " Edit,Delete " line ))
- (os-extension ("MENU " Edit,Undo " delete " line ))
- (os-extension ("MENU " Edit,Delete " to " eol ))
- (os-extension ("MENU " Edit,Copy " to " kill " buffer ))
- (os-extension ("MENU " Edit,Fold " kill " buffer ))
- }}}
- {{{ Fold menu
- (os-extension ("MENU " Fold,Open ))
- (os-extension ("MENU " Fold,Close ))
- (os-extension ("MENU " Fold,Enter ))
- (os-extension ("MENU " Fold,Exit ))
- (os-extension ("MENU " Fold,Unfold ))
- (os-extension ("MENU " Fold,Create ))
- (os-extension ("MENU " Fold,Toggle " File ))
- (os-extension ("MENU " Fold,Attach " File ))
- (os-extension ("MENU " Fold,Describe ))
- }}}
- {{{ Move menu
- (os-extension ("MENU " Move,Top " of " fold ))
- (os-extension ("MENU " Move,End " of " fold ))
- (os-extension ("MENU " Move,Goto " line ))
- (os-extension ("MENU " Move,Next " page ))
- (os-extension ("MENU " Move,Prev " page ))
- (os-extension ("MENU " Move,Next " word ))
- (os-extension ("MENU " Move,Prev " word ))
- }}}
- {{{ Line menu
- (os-extension ("MENU " Line,New " line ))
- (os-extension ("MENU " Line,Delete " line ))
- (os-extension ("MENU " Line,Delete " to " eol ))
- (os-extension ("MENU " Line,Beginning " of " line ))
- (os-extension ("MENU " Line,End " of " line ))
- (os-extension ("MENU " Line,Next " line ))
- (os-extension ("MENU " Line,Previous " line ))
- }}}
- {{{ Word menu
- (os-extension ("MENU " Word,Upper " word ))
- (os-extension ("MENU " Word,Lower " word ))
- (os-extension ("MENU " Word,Cap. " word ))
- }}}
- {{{ Search menu
- (os-extension ("MENU " Search,Forward ))
- (os-extension ("MENU " Search,Reverse ))
- (os-extension ("MENU " Search,Replace ))
- (os-extension ("MENU " Search,Query " s&r ))
- (os-extension ("MENU " Search,Incremental ))
- (os-extension ("MENU " Search,Reverse " incr. ))
- }}}
- {{{ Mode menu
- (os-extension ("MENU " Mode,Add " view ))
- (os-extension ("MENU " Mode,Del " view ))
- (os-extension ("MENU " Mode,Add " overwrite ))
- (os-extension ("MENU " Mode,Del " overwrite ))
- }}}
- {{{ Extras menu
- (os-extension ("MENU " Extras,Def " marco ))
- (os-extension ("MENU " Extras,End " def " marco ))
- (os-extension ("MENU " Extras,Execute " macro ))
- (os-extension ("MENU " Extras,Set " language ))
- (os-extension ("MENU " Extras,Describe " bind ))
- (os-extension ("MENU " Extras,Help ))
- }}}
- }}}
- }}}
- {{{ fold commands
- (mode edit
- (keybind emori-set-mark ($csi "E "C "@ ))
- (keybind emori-fold-region (M-$csi "E "C "@ ))
- )
- }}}
-
- {{{ defmark
- (defmark pascal (("< "< "< ) (". ". ". ) (": ": ": ) ("> "> "> )))
- }}}
-
- {{{ special keys
- (mode edit
- (keybind describe-bindings ($helpkey))
- )
- (mode para
- (keybind describe-bindings ($helpkey))
- )
- }}}
-
- {{{ Arexx definitions
- (history arexx )
- (os-extension ("AREXXHIST " history arexx ))
- (os-extension ("AREXX " letsbeep ", failed))
- {{{ amsg
- (deffun amsg
- (
- message ( "[ history arexx "] )
- ) )
- }}}
- (os-extension ("AREXX " message ", amsg))
- {{{ saserror
- ; this is a macro, that can be used to display an compiler error message
- ; first argument is the file name, second the line number and third the
- ; message string
- (deffun saserror
- (
- set-file-unchanged
- read-file
- get-history arexx 2
- newline-and-indent
- go-to-line
- get-history arexx 1
- newline-and-indent
- amsg
- ))
- }}}
- (os-extension ("AREXX " saserror ", saserror))
- {{{ get-line
- (deffun get-line
- (
- history-edit-line arexx "?
- newline-and-indent
- ))
- }}}
- (os-extension ("AREXX " get-line ", get-line))
- }}}
-